home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / source / rkeyboar.cpt / Reactive Keyboard ƒ / Glue.a < prev    next >
Encoding:
Text File  |  1990-05-03  |  624 b   |  23 lines
  1.  
  2. AsmClikLoop    PROC        EXPORT
  3.  
  4.             IMPORT        GETOLDCLIKLOOP
  5.             IMPORT        PASCALCLIKLOOP
  6.             
  7.             MOVEM.L        D1-D2/A1,-(SP)        ; D0 and A0 need not be saved
  8.             CLR.L        -(SP)                ; make space for procedure pointer
  9.             JSR            GETOLDCLIKLOOP        ; get the old clikLoop
  10.             MOVEA.L        (SP)+,A0            ; into A0
  11.             MOVEM.L        (SP)+,D1-D2/A1        ; restore the world as it was
  12.             
  13.             JSR            (A0)                ; and execute old clikLoop
  14.  
  15.             MOVEM.L        D1-D2/A1,-(SP)        ; D0 and A0 need not be saved
  16.             JSR            PASCALCLIKLOOP        ; do our clikLoop
  17.             MOVEM.L        (SP)+,D1-D2/A1        ; restore the world as it was
  18.             MOVEQ        #1,D0                ; clear the zero flag so TextEdit keeps going
  19.             RTS
  20.  
  21.             END 
  22.  
  23.